home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / Q6.bas < prev    next >
BASIC Source File  |  2012-02-16  |  9KB  |  388 lines
  1. 0  HOME 
  2. 100  HGR : HCOLOR= 3
  3. 110  HPLOT 10,9 TO 10,110
  4. 112  HPLOT 9,9 TO 9,110
  5. 114  HPLOT 11,9 TO 11,110
  6. 118 X% = 1:Y% = 7
  7. 120  GOSUB 11050
  8. 122 X% = 8
  9. 124  GOSUB 10350
  10. 126 X% = 11
  11. 128  GOSUB 10600
  12. 130 X% = 17
  13. 132  GOSUB 10600
  14. 134 X% = 23
  15. 136  GOSUB 10500
  16. 138 X% = 29
  17. 140  GOSUB 10600
  18. 150  HPLOT 12,60 TO 120,60
  19. 152  HPLOT 12,59 TO 120,59
  20. 156 X% = 125:Y% = 59
  21. 158  GOSUB 11000
  22. 160 X% = 131
  23. 162  GOSUB 10350
  24. 164 X% = 134
  25. 166  GOSUB 10450
  26. 168 X% = 140
  27. 170  GOSUB 10150
  28. 172 X% = 149
  29. 174  GOSUB 10550
  30. 176 X% = 155
  31. 178  GOSUB 10150
  32. 180 X% = 161
  33. 182  GOSUB 10600
  34. 184 X% = 167
  35. 186  GOSUB 10550
  36. 188 X% = 173
  37. 190  GOSUB 10150
  38. 192 X% = 179
  39. 194  GOSUB 10450
  40. 196 X% = 185
  41. 198  GOSUB 10100
  42. 200 X% = 191
  43. 202  GOSUB 10350
  44. 204 X% = 194
  45. 206  GOSUB 10050
  46. 208 X% = 200
  47. 210  GOSUB 10700
  48. 212 X% = 206
  49. 214  GOSUB 10400
  50. 216 X% = 209
  51. 218  GOSUB 10000
  52. 220 X% = 215
  53. 222  GOSUB 10600
  54. 250  HPLOT 115,26 TO 12,59
  55. 252  HPLOT 115,20 TO 115,25
  56. 254  HPLOT 116,20 TO 116,25
  57. 256  HPLOT 121,29 TO 115,25
  58. 260 X% = 124:Y% = 28
  59. 262  GOSUB 10950
  60. 264 X% = 130
  61. 266  GOSUB 10450
  62. 268 X% = 136
  63. 270  GOSUB 10050
  64. 272 X% = 142
  65. 274  GOSUB 10350
  66. 276 X% = 145
  67. 278  GOSUB 10100
  68. 280 X% = 151
  69. 282  GOSUB 10150
  70. 284 X% = 157
  71. 286  GOSUB 10450
  72. 288 X% = 163
  73. 290  GOSUB 10650
  74. 292 X% = 171
  75. 294  GOSUB 11100
  76. 296 X% = 178
  77. 298  GOSUB 10000
  78. 300 X% = 184
  79. 302  GOSUB 10850
  80. 350  REM       angle = 60 
  81. 352 X% = 16:Y% = 30
  82. 354  GOSUB 10900
  83. 356 X% = 23
  84. 358  GOSUB 10450
  85. 360 X% = 29
  86. 362  GOSUB 10250
  87. 364 X% = 35
  88. 366  GOSUB 10400
  89. 368 X% = 38
  90. 370  GOSUB 10150
  91. 372  REM      = 60 deg
  92. 374 X% = 47
  93. 376  GOSUB 11400
  94. 378 X% = 56
  95. 380  GOSUB 11500
  96. 382 X% = 62
  97. 384  GOSUB 11300
  98. 386 X% = 68
  99. 388  GOSUB 11450
  100. 400  REM        angle = 90
  101. 402 X% = 16:Y% = 80
  102. 404  GOSUB 10900
  103. 406 X% = 23
  104. 408  GOSUB 10450
  105. 410 X% = 29
  106. 412  GOSUB 10250
  107. 414 X% = 35
  108. 416  GOSUB 10400
  109. 418 X% = 38
  110. 420  GOSUB 10150
  111. 422  REM      = 90 deg
  112. 424 X% = 47
  113. 426  GOSUB 11400
  114. 428 X% = 56
  115. 430  GOSUB 11350
  116. 432 X% = 62
  117. 434  GOSUB 11300
  118. 436 X% = 68
  119. 438  GOSUB 11450
  120. 450  REM       answers
  121. 452 X% = 1:Y% = 125
  122. 454  GOSUB 10000
  123. 456  HPLOT 7,125
  124. 458 X% = 13
  125. 460  GOSUB 11500
  126. 462 X% = 19
  127. 464  GOSUB 11300
  128. 466 X% = 25
  129. 468  GOSUB 11450
  130. 470 X% = 45
  131. 472  GOSUB 11200
  132. 474  HPLOT 51,125
  133. 476 X% = 57
  134. 478  GOSUB 11250
  135. 480 X% = 63
  136. 482  GOSUB 11300
  137. 484 X% = 69
  138. 486  GOSUB 11450
  139. 488 X% = 89
  140. 490  GOSUB 10050
  141. 492  HPLOT 95,125
  142. 494 X% = 101
  143. 496  GOSUB 11350
  144. 498 X% = 107
  145. 500  GOSUB 11300
  146. 502 X% = 113
  147. 504  GOSUB 11450
  148. 506 X% = 133
  149. 508  GOSUB 10100
  150. 510  HPLOT 139,125
  151. 512 X% = 145
  152. 514  GOSUB 10300
  153. 516 X% = 151
  154. 518  GOSUB 10150
  155. 520 X% = 157
  156. 522  GOSUB 10400
  157. 524 X% = 160
  158. 526  GOSUB 10550
  159. 600  REM        ?  
  160. 601  PRINT 
  161. 602  VTAB (21): PRINT "Given the following information, what   will be the angle of reflection?"
  162. 604  GET KY$: CALL 62450
  163. 610  IF KY$ = "a"  OR KY$ = "A"  OR KY$ = "c"  OR KY$ = "C"  THEN  GOSUB 1100
  164. 620  IF KY$ = "d"  OR KY$ = "D"  THEN  GOSUB 1200
  165. 630  IF KY$ = "b"  OR KY$ = "B"  THEN  GOSUB 1300
  166. 640  PRINT : PRINT 
  167. 642  PRINT "Please press <a>, <b>, <c>, or <d>      only."
  168. 643  GOSUB 2000
  169. 644  GOTO 0
  170. 1000  END 
  171. 1100  HOME : TEXT 
  172. 1110  PRINT 
  173. 1112  PRINT "WRONG, wait a moment for another try..."
  174. 1114  PRINT : PRINT : PRINT : PRINT 
  175. 1116  PRINT : PRINT : PRINT 
  176. 1118  GOSUB 2000
  177. 1120  GOTO 0
  178. 1200  HOME : TEXT 
  179. 1210  PRINT 
  180. 1220  PRINT "Remember the ANGLE of INCIDENCE equals  the ANGLE of REFLECTION."
  181. 1230  PRINT : PRINT : PRINT : PRINT 
  182. 1240  PRINT : PRINT : PRINT : PRINT 
  183. 1245  FOR I = 0 TO 1500: NEXT 
  184. 1250  GOSUB 2000
  185. 1260  GOTO 0
  186. 1300  HOME : TEXT 
  187. 1310  PRINT 
  188. 1320  PRINT "Hey, you got it!!"
  189. 1330  PRINT : PRINT : PRINT : PRINT 
  190. 1343  PRINT "Now that you've learned something about the physics of mirrors, let's see what  you know about mirrors in myths and     fables."
  191. 1345  PRINT : PRINT : PRINT : PRINT 
  192. 1346  FOR I = 0 TO 2000: NEXT 
  193. 1350  GOSUB 2000
  194. 1354  PRINT "Press any key to move on."
  195. 1355  GET KY$
  196. 1360  PRINT  CHR$(4);"run q7"
  197. 2000  FOR I = 0 TO 800
  198. 2002 J = 1
  199. 2004  NEXT I
  200. 2006  RETURN 
  201. 9500  END 
  202. 9800  REM      draw ap
  203. 9802  HPLOT X% +3,Y% TO X% +4,Y%
  204. 9804  HPLOT X% +3,Y% +1 TO X% +5,Y% +1
  205. 9806  HPLOT X% +10,Y% +1 TO X% +11,Y% +1
  206. 9808  HPLOT X% +3,Y% +2 TO X% +6,Y% +2
  207. 9810  HPLOT X% +10,Y% +2 TO X% +11,Y% +2
  208. 9812  HPLOT X% +4,Y% +3 TO X% +7,Y% +3
  209. 9814  HPLOT X% +9,Y% +3 TO X% +10,Y% +3
  210. 9816  HPLOT X% +4,Y% +4 TO X% +10,Y% +4
  211. 9818  HPLOT X% +1,Y% +5 TO X% +16,Y% +5
  212. 9820  HPLOT X%,Y% +6 TO X% +17,Y% +6
  213. 9822  HPLOT X%,Y% +7 TO X% +17,Y% +7
  214. 9824  HPLOT X%,Y% +8 TO X% +17,Y% +8
  215. 9826  HPLOT X%,Y% +9 TO X% +17,Y% +9
  216. 9828  HPLOT X% +1,Y% +10 TO X% +16,Y% +10
  217. 9830  HPLOT X% +1,Y% +11 TO X% +16,Y% +11
  218. 9832  HPLOT X% +1,Y% +12 TO X% +16,Y% +12
  219. 9834  HPLOT X% +2,Y% +13 TO X% +15,Y% +13
  220. 9836  HPLOT X% +2,Y% +14 TO X% +15,Y% +14
  221. 9838  HPLOT X% +3,Y% +15 TO X% +14,Y% +15
  222. 9840  HPLOT X% +4,Y% +16 TO X% +13,Y% +16
  223. 9842  HPLOT X% +5,Y% +17 TO X% +7,Y% +17
  224. 9844  HPLOT X% +10,Y% +17 TO X% +12,Y% +17
  225. 9850  RETURN 
  226. 9999  REM     a
  227. 10000  HPLOT X%,Y% -1
  228. 10010  HPLOT X% +1,Y% TO X% +2,Y%
  229. 10020  HPLOT X% +1,Y% -2 TO X% +2,Y% -2
  230. 10030  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  231. 10040  HPLOT X% +3,Y% TO X% +3,Y% -3
  232. 10041  RETURN 
  233. 10049  REM     c
  234. 10050  HPLOT X%,Y% -1 TO X%,Y% -3
  235. 10060  HPLOT X% +1,Y% TO X% +3,Y%
  236. 10070  HPLOT X% +1,Y% -4 TO X% +3,Y% -4
  237. 10071  RETURN 
  238. 10099  REM     d
  239. 10100  HPLOT X%,Y% -1 TO X%,Y% -3
  240. 10110  HPLOT X% +1,Y% TO X% +2,Y%
  241. 10120  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  242. 10130  HPLOT X% +3,Y% TO X% +3,Y% -6
  243. 10131  RETURN 
  244. 10149  REM     e
  245. 10150  HPLOT X%,Y% -1 TO X%,Y% -3
  246. 10160  HPLOT X% +1,Y% TO X% +3,Y%
  247. 10170  HPLOT X% +1,Y% -2 TO X% +2,Y% -2
  248. 10180  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  249. 10190  HPLOT X% +3,Y% -3
  250. 10191  RETURN 
  251. 10249  REM     g
  252. 10250  HPLOT X%,Y% -1 TO X%,Y% -3
  253. 10260  HPLOT X% +1,Y% TO X% +2,Y%
  254. 10270  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  255. 10280  HPLOT X% +3,Y% +2 TO X% +3,Y% -3
  256. 10290  HPLOT X% +1,Y% +3 TO X% +2,Y% +3
  257. 10291  RETURN 
  258. 10299  REM     h
  259. 10300  HPLOT X%,Y% TO X%,Y% -6
  260. 10310  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  261. 10320  HPLOT X% +3,Y% TO X% +3,Y% -3
  262. 10321  RETURN 
  263. 10349  REM     i
  264. 10350  HPLOT X%,Y% TO X%,Y% -3
  265. 10360  HPLOT X%,Y% -5
  266. 10361  RETURN 
  267. 10399  REM     l
  268. 10400  HPLOT X%,Y% TO X%,Y% -6
  269. 10401  RETURN 
  270. 10449  REM     n
  271. 10450  HPLOT X%,Y% TO X%,Y% -4
  272. 10460  HPLOT X% +1,Y% -3
  273. 10470  HPLOT X% +2,Y% -4
  274. 10480  HPLOT X% +3,Y% TO X% +3,Y% -3
  275. 10481  RETURN 
  276. 10499  REM     o
  277. 10500  HPLOT X%,Y% -1 TO X%,Y% -3
  278. 10510  HPLOT X% +1,Y% TO X% +2,Y%
  279. 10520  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  280. 10530  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  281. 10531  RETURN 
  282. 10549  REM     p
  283. 10550  HPLOT X%,Y% +3 TO X%,Y% -4
  284. 10560  HPLOT X% +1,Y% TO X% +2,Y%
  285. 10570  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  286. 10580  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  287. 10581  RETURN 
  288. 10599  REM      r
  289. 10600  HPLOT X%,Y% TO X%,Y% -4
  290. 10610  HPLOT X% +1,Y% -3
  291. 10620  HPLOT X% +2,Y% -4 TO X% +3,Y% -4
  292. 10621  RETURN 
  293. 10649  REM      t
  294. 10650  HPLOT X%,Y% -4
  295. 10660  HPLOT X% +1,Y% TO X% +1,Y% -6
  296. 10670  HPLOT X% +2,Y% -4
  297. 10671  RETURN 
  298. 10699  REM      u
  299. 10700  HPLOT X%,Y% -1 TO X%,Y% -4
  300. 10710  HPLOT X% +1,Y%
  301. 10720  HPLOT X% +2,Y% -1
  302. 10730  HPLOT X% +3,Y% TO X% +3,Y% -4
  303. 10731  RETURN 
  304. 10849  REM      y
  305. 10850  HPLOT X%,Y% -1 TO X%,Y% -4
  306. 10860  HPLOT X% +1,Y% TO X% +2,Y%
  307. 10870  HPLOT X% +3,Y% +2 TO X% +3,Y% -4
  308. 10880  HPLOT X% +2,Y% +3
  309. 10881  RETURN 
  310. 10899  REM       A
  311. 10900  HPLOT X%,Y% TO X%,Y% -4
  312. 10910  HPLOT X% +1,Y% -5 TO X% +2,Y% -6
  313. 10920  HPLOT X% +3,Y% -5
  314. 10930  HPLOT X% +1,Y% -2 TO X% +3,Y% -2
  315. 10940  HPLOT X% +4,Y% TO X% +4,Y% -4
  316. 10941  RETURN 
  317. 10949  REM      I
  318. 10950  HPLOT X% +1,Y% TO X% +3,Y%
  319. 10960  HPLOT X% +2,Y% -1 TO X% +2,Y% -5
  320. 10970  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  321. 10971  RETURN 
  322. 10999  REM       L
  323. 11000  HPLOT X%,Y% TO X%,Y% -6
  324. 11010  HPLOT X% +1,Y% TO X% +4,Y%
  325. 11011  RETURN 
  326. 11049  REM       M
  327. 11050  HPLOT X%,Y% TO X%,Y% -6
  328. 11060  HPLOT X% +1,Y% -5
  329. 11070  HPLOT X% +2,Y% -3 TO X% +2,Y% -5
  330. 11080  HPLOT X% +3,Y% -5
  331. 11090  HPLOT X% +4,Y% TO X% +4,Y% -6
  332. 11091  RETURN 
  333. 11099  REM       R
  334. 11100  HPLOT X%,Y% TO X%,Y% -6
  335. 11110  HPLOT X% +1,Y% -3 TO X% +3,Y% -3
  336. 11120  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  337. 11130  HPLOT X% +4,Y% -4 TO X% +4,Y% -5
  338. 11140  HPLOT X% +4,Y% TO X% +2,Y% -2
  339. 11141  RETURN 
  340. 11149  REM       C
  341. 11150  HPLOT X%,Y% -1 TO X%,Y% -5
  342. 11160  HPLOT X% +1,Y% TO X% +3,Y%
  343. 11170  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  344. 11180  HPLOT X% +4,Y% -5
  345. 11190  HPLOT X% +4,Y% -1
  346. 11191  RETURN 
  347. 11199  REM      b
  348. 11200  HPLOT X%,Y% TO X%,Y% -6
  349. 11210  HPLOT X% +1,Y% TO X% +2,Y%
  350. 11230  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  351. 11240  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  352. 11241  RETURN 
  353. 11249  REM      3
  354. 11250  HPLOT X%,Y% TO X% +2,Y%
  355. 11260  HPLOT X%,Y% -6 TO X% +2,Y% -6
  356. 11270  HPLOT X% +1,Y% -3 TO X% +2,Y% -3
  357. 11280  HPLOT X% +3,Y% -1 TO X% +3,Y% -2
  358. 11290  HPLOT X% +3,Y% -4 TO X% +3,Y% -5
  359. 11291  RETURN 
  360. 11299  REM      0
  361. 11300  HPLOT X% +1,Y% TO X% +2,Y%
  362. 11310  HPLOT X%,Y% -1 TO X%,Y% -5
  363. 11320  HPLOT X% +1,Y% -6 TO X% +2,Y% -6
  364. 11330  HPLOT X% +3,Y% -1 TO X% +3,Y% -5
  365. 11331  RETURN 
  366. 11349  REM      9
  367. 11350  HPLOT X%,Y% -4 TO X%,Y% -5
  368. 11360  HPLOT X% +1,Y% -3 TO X% +2,Y% -3
  369. 11370  HPLOT X% +1,Y% -6 TO X% +2,Y% -6
  370. 11380  HPLOT X% +3,Y% TO X% +3,Y% -5
  371. 11381  RETURN 
  372. 11399  REM      =
  373. 11400  HPLOT X%,Y% -1 TO X% +3,Y% -1
  374. 11410  HPLOT X%,Y% -3 TO X% +3,Y% -3
  375. 11411  RETURN 
  376. 11449  REM      degree sign
  377. 11450  HPLOT X%,Y% -5
  378. 11460  HPLOT X% +1,Y% -4
  379. 11470  HPLOT X% +1,Y% -6
  380. 11480  HPLOT X% +2,Y% -5
  381. 11481  RETURN 
  382. 11499  REM      6
  383. 11500  HPLOT X%,Y% -1 TO X%,Y% -5
  384. 11510  HPLOT X% +1,Y% TO X% +2,Y%
  385. 11520  HPLOT X% +1,Y% -3 TO X% +2,Y% -3
  386. 11530  HPLOT X% +3,Y% -1 TO X% +3,Y% -2
  387. 11540  HPLOT X% +1,Y% -6 TO X% +2,Y% -6
  388. 11541  RETURN